home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / FinsGold / Modula / QuitRexxM2Error.ged < prev    next >
Encoding:
Text File  |  1994-03-19  |  1.0 KB  |  39 lines
  1. /* $VER: QuitRexxM2Error.ged V 0.9   © 1994 Fin Schuppenhauer        */
  2. /* Beendet das Programm "RexxM2Error".                               */
  3.  
  4. OPTIONS RESULTS                             /* enable return codes     */
  5.  
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  10. OPTIONS FAILAT 6                            /* ignore warnings         */
  11. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  12.  
  13.  
  14. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  15.  
  16.  
  17. 'QUERY CAT'
  18. isGerman = (result = "deutsch")
  19.  
  20. if show('P', 'REXXM2ERROR') then do
  21.    ADDRESS 'REXXM2ERROR' 'QUIT'
  22.    if (isGerman) then
  23.       'REQUEST BODY="RexxM2Error entfernt." BUTTON=Ok'
  24.    else
  25.       'REQUEST BODY="RexxM2Error removed." BUTTON=Ok'
  26. end
  27.  
  28.  
  29. /* ---------------------------- END OF YOUR CODE --------------------- */
  30.  
  31. 'UNLOCK' /* VERY important: unlock GUI */
  32. EXIT
  33.  
  34. SYNTAX:
  35.  
  36. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  37. 'UNLOCK'
  38. EXIT
  39.